home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 9 / AMUG BBS in a Box Volume IX (August 1993) (MacWizards).iso / Files / Tele / A / 1036.cpt / 1036 / 1036.Source.Text < prev    next >
Encoding:
Text File  |  1987-03-11  |  985 b   |  33 lines  |  [TEXT/MSWD]
  1. 00010 CTS=0
  2. 00020 OPEN "I",1,"PATHFILE"
  3. 00021 INPUT#1,LA$,RRH$,Q1$,Q1T$,UL$,CLG$
  4. 00022 CLOSE #1
  5. 00023 ON ERROR GOSUB 340
  6. 00024 OPEN"I",1,LA$,68
  7. 00025 READ #1,SCAPE$;4,BR$;1,SCRAPE2$;9,CP$;4,SCAPE3$;50
  8. 00026 CLOSE #1
  9. 00050 BR=ASC(BR$)
  10. 00060 IF BR=0 THEN BR=300
  11. 00070 IF BR=2 THEN BR=1200
  12. 00080 IF BR=3 THEN BR=2400
  13. 00090 OPEN"C",-1,BR,0,0,1,3
  14. 00250 GOTO 300
  15. 00270 IF BR=4 THEN RETURN
  16. 00275 NEWCTS=PEEK(&H2CE) AND &H20
  17. 00280 IF NEWCTS<>CTS THEN GOTO 340
  18. 00290 RETURN
  19. 00300 REM START PROGRAM HERE!
  20. 00310 TX$="It's "
  21. 00320 TX2$=" SST. (Standard System Time)"
  22. 00330 PRINT TX$;TIME$;TX2$
  23. 00331 IF BR<>4 THEN PRINT#-1,TX$;TIME$;TX2$
  24. 00333 IF BR=4 THEN DELAY 5000
  25. 00334 OPEN"A",2,CLG$
  26. 00335 PRINT#2,"Needs to buy a watch."
  27. 00336 CLOSE#2
  28. 00340 RUN RRH$
  29. 00350 REM This software was created using the ZBasic™ Compiler.
  30. 00360 REM Portions of this code are ©Copyrighted, 1985 by Zedcor Inc.
  31. 00370 REM 1036 Written By Frederic W. Barling and placed in the public domain
  32. 00380 REM on March 10, 1987.
  33.